RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ZTITLE ‘Get a number and Ceover r ,it to binary.’ 


[=] 


MODULE getnum ( sont 
1BL15S32 L, ADDRESSING -MODE (EXTERNAL | = LONG_RELATIVE 
% ONEXTERNAL = LONG-RELATIVESJ 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


:* THIS SOFTWARE +4 FURNISHED UNDER A LICENSE ive MAY BE USED AND Sg ha 
'* ONLY IN ACCORD WITH THE TERM F SU arts ae WITH THE 
; N T NOTICE. THis” sort ARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i; FAANSFERREOY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


Hie He at an IN THIS SOFTWARE IS SUBJE 
:* AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


it DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


TO CHANGE WITHOUT NOTIC cf 
MENT BY DIGITAL EQUIPMENT 
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i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: Get a number and convert it to binary. 

ENVIRONMENT: Transportable 

' AUTHOR: R.W. Friday CREATION DATE: May, 1978/Revised July, 1983 
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GETNUM Get a number and convert it to binary. 1b-s Sep =1386 99: 3 4 AX-11 Bliss-32 V4.0-742 
v04-000 14-Sep-1984 6: RUNOFF .SRCJGETNUM.BLI;1 


; «41 0040 1 ! MODIFIED BY: : 
: og 041 1! 3 
eee 9) 1 011 KFA00011 23-Sep-1983 . 
>; 644 43 1! mage os - GETLET tS “stu now call gname : 
; 65 044 1 Landes A L allow user to mix letters and numbers in number ; 
3 re] Bee : strings. ; 
: 48 Oe? 1 | 010 REMO0010 Ray Marshall — 22-Jul-1983 ; 
:; 49 048 1! Changed TEMP_MRA_SIZE to TEMP_SIZE aA so that it w hh be 3 
; 29 edd } unique within Ehe first 6 characters for the TOPS- Linker. 

: ¢ 051 3 | 009 KFA00009 Ken Alden 06-Jul-1983 

te b2¢ 1 i Fixed the newsub problems in dealin Ut alphanumeric strings 

; 20 bez : Added two new routines to handles $$entities & strings. 

: 56 0055 1 008 KFA00008 Alden 23-Jun-1983 

3 57 0056 1! Added call to ENDURD to flush out the Last character 

3 28 boas : that NEWSUB put into the mra. (DSRPLUS) 

: 60 0059 1! 007 KFA00007 Ken Alden 15-Jun-1983 

3; 1 0060 1! For DSRPLUS: Conditionalized call to kcns if this 

3 6¢ bes | routine had called NEWSUB for the number. 

> 64 boe8 6B 006 REROO006 Ron Randall 9-Jun-1983 

; $65 0064 1! ioe DSRPLUS: 

; 66 0065 1! Improved resolution of entities by setting/resetting a 

; 67 0066 1 | tae causing ENDCHR not to be cali ed by NEWSUB whi 

; re 4984 : entities are being resolved. 

: 70 0069 1 005 REROOOOS Ron Randall 16-May-1983 

; 4! Baee : Fixed a bug related to leading zeros. 

ee 0072 1! 004 REROOO04 Ron Randall 1i-May~1983 

; 74 0073 1! For DSRPLUS: 

3 e Bere : Allow GETNUM to resolve numerical $ and $$ entities. 

eet 0076 1: 003 REROO0O3 Ron Randall 7-Mar-1983 

oy) ee 0077 1: Global edit of all modules. Updated module names, idents, 

; 6 Bae ’ Ae copyright dates. Changed require files to BLISS library. 
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GE TNUM Get a number and convert it to binary. 16-Sep-1984 00:39:41 AX-11 Bliss-32 V4.0-74 Page 3 

Gba000 : Soe Va eee HI he hg PL a 

; § 080 1! 

cs 8 09 1 1! INCLUDE FILES: 

ee § 3 

3 85 00 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 

3 6 1 } REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 

: 88 U if 1 XIF DSRPLUS X%THEN 

: 89 U 1 1 LIBRARY ‘REQ:DPLLIB'; ! DSRPLUS BLISS Library 

; 90 0 18 1 XELSE 

3 4! 8 4 } ert LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 

: 9 : 4 

$ 94 8 § 1 FORWARD ROUTINE 

3 95 0 1 TNUM ' Get a number 

> 96 U 0224 1 XIF DSRPLUS XTHEN 

: 44 U 8 2 \ gE {Sus ! Get a number from a $$entity 

: 99 O22? 1 GETLET : NOVALUE; ! Get a number from a string of letters 

: 10 $559 13 

: 108 0980 ; EXTERNAL REFERENCES: 

> 104 0982 1 EXTERNAL 

s 105 OSs 1 FSO1 FIXED_STRING, 

; 138 osee : rretes : REF $xPO_10B (), ! Output file (document being built) 

3 r; 

: 108 0236 1 

; 199 0337 : EXTERNAL 4 A as 

; rnfmfn; 

s 111 0239 1 

3 Ng bee 1 EXTERNAL ROUTINE 

to 0542 | te 

> 115 $503 1 ree.” 

i ha 

: 118 U 0246 1 XIF DSRPLUS XTHEN 

; #119 U 0247 1 EXTERNAL LITERAL 

: 120 U 0248 1 rintes : UNSIGNED (8), ? 

3 138 U rh : temp_size_mra; ! Allocated size for temporary mra. 

; U 

2 U 0251 1 EXTERNAL 

3 130 U 38) 1 entity_in_footnote, ! Flag used by FCIMRA. 

; 133 U 8 53 1 processing_entity ; lap used by NEWSUB. 

> 126 U 0254 1 flgt  : flgt_definition, ' Flag characters. 

: 127 u 0 3? 1 fnct : fnct_definition, ' Footnote control table. 

; 128 U § 1 hold_mra, ' Holds mra address. 

: ' 4 U af ' hold_tsf, nS ! Holds tsf address. 

2 H xeag_ string, 

: 131 U 59 1 oe : sca_definition.- ! Flag for justification. 

3 135 U 0260 1 temp_mra : fixed string, ' Substitute mra. 

. Ts U 0261 1 temp_tsf : VECTOR Ctsf_sizel, ' Substitute tsf. 

: 1% U 6 1 tsf : tsf_definition; 

; 135 U 0265 1 

3 138 U 0264 1 EXTERNAL ROUTINE 

ae | U 0265 1 

3 138 U 0266 1 endwrd, ' Flushes last character into mra. 
} 
| 


at Ye a | 
-Sep-1 LRUNOFF .SRCJGETNUM.BLI; 
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'H 
peysub; ' Resolves entity value. 
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sign_convert; ! Either "7 or -1; used in multiplying 
! to get the right sign. 
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GE TNUM Get a number and convert it to binary. 16-Sep-1984 39:41 AX-11 Bliss-32 V4.0-74 P 5 
v04-000 ; ee oe ra Se rd et Pt Ma ~~ ot 


GLOBAL ROUTINE getnum .input_string, number_value, number_sign, number_length) = 
'44 


i FUNCTIONAL DESCRIPTION: 


Beginning with khar, getnum skips spaces and tabs until it 

finds something that is neither. From that point on, it processes 
characters until it encounters what cannot be part of a number ; 
though a + or = sign will be accepted. 


If GETNUM encounters a ‘‘number’’ that is incorrect (too long or not 
numeric), it returns FALSE; otherwise, it returns TRUE. 


FORMAL PARAMETERS: 


input string - The + thay containing the value sought. 
number _value = Contains the binary equivalent of the original input. 
number _sign - Contains the value 1 if a + sign was encountered, 
-1 if a minus sign was encountered, 
or 0 if no sign was encountered. 
number_length = Contains the number of digits that were processed. 
If number_length is zero on return, no number was 
found. In such a case, all other parameters will 
also have a zero value. 
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IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


ooooo 
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Returns TRUE if a valid number was found, else FALSE. 
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3 
; IMPLICIT INPUTS: None 
3 
; 
3 
31 
Ht SIDE EFFECTS: 
y] + Issues an error message in the case of an invalid number. 
88 31 
89 1 BEGIN 
90 1 BIND 
91 18 ira = input_string : REF FIXED_STRING, 
3 19 nv = .number_value, 
9 0 ns = .mumber_sign, 
Se 1 nl = .mumber_length; 
5 ‘ LOCAL 
p44 : leading_zeros; ! TRUE if leading zeros were found. 
99 § nv = 0 
st ns = 0; 
4 3 8 nl = 0; 
3 : : Ignore leading spaces and tabs. 
5 rskips (.input_string); 
b2 § ' p put. 9 
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Check for leading sign. 
if (.khar EQL C+") OR (.khar EQL XC'=") 
THEN 


BEGIN 
ns = (IF .khar EQL 2C°+* THEN 1 ELSE <1); 
ene (); 


sign_convert = (IF .ms GEQ 0 THEN 1 ELSE <1); 
Leading zeros = .khar EQL %C'0'; 


| Skip leading zeros. 
WHILE .khar EQL %C'0' DO 
kens (); 


' 
Detect special cases. 


if NOT digit (.khar) 
BEGIN 
Sign alone, or + or = zero. 
IF .ms NEQ 0 
THEN 


BEGIN 
ZIF DSRPLUS ZTHEN 
IF (.flgt fsub. flag, flag_character] EQL .khar) AND 
en? sub_flag, flag_enabled] 


—e (getsub(ira, nv, nl, false)) 


FI 
BEGIN 
erma (rnfmfn, false); 
= false; 


END 
ELSE 
BEGIN 


Set number length to 1 (arbitrarily) for any string of zeros. 
If .leading_zeros 
THEN 
nl = 1; 
ZI1F OSAP. US XTHEN 


F (.flgt Csub_flag, flag character) EQL .khar) AND 
or lot brah hace "Olan seaklael 


status; 


<a 
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TITLE 
“IDENT 
.PSECT 

00000 SIGN_CONVERT: 
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GET Get a number and convert it to binary. 16-Sep-1984 00:39:41 AX-11 Bliss-32 V4.0=-74 Page 
Gian 000 19-808- 1382 90:30:44 RUNOFF eSRETGE TNA OL 104 . 
: 264 U 0391 4 
; 265 U 3 4 status = getsublira, nv, nl, false); 
3 2 U 4 IF .status 
; 2 U 0394 4 T 
; 268 u 0395 4 kens (); 
3 4 U 38 4 RETURN true; 
3 0 U 0397 4 3 
: e7i 98 4 XELSE 
: if 99 4 RETURN true; 
, aT 400 4 XFI 
3 a ret END; 
3 8 20 END; 
3 7 the 
; 78 405 WHILE digit (.khar) DO 
; 279 £06 BEGI 
: 280 040 LOCAL 
; «281 rt converted_digit; 
3 S¢ 040 
; 28 ~ 0410 4 IF_ ml EQL most_digits_9 
: 284 0411 3 THEN 
: 285 Reig 4 BEGIN 
3 86 041 4 ! 
3 87 0414 4 ' Skip overflow. 
: 288 0415 4 ! 
3 89 0416 4 WHILE digit (.khar) DO 
3 90 0417 4 kens (); 
; 291 0418 4 
3 9 0419 4 erma (rnfmfn, false); 
; 29 0420 4 RETURN false; 
: 296 0421 END; 
3; 295 04 : ! 
3 96 04 ' Convert characters to decimal number. 
: 297 8 4 ! 
; 298 425 converted digit = .khar = %C'0O'; 
; 299 0426 nv = (.nv® 10) + (.converted_digit * .sign_convert); 
; 300 0427 nt = .nl + 1; 
: 301 04 8 ! 
: 30 04 ' Get next character. 
; 30 a 0 ! 
: 304 431 kens (); 
3 05 04 é END; 
; 306 04 
3 4 8 4 RETURN true; 
3 8 435 1 END; ! End of GETNUM, 
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GETN Get a number and convert it to binary. 18-5 -1984 39:41 AX-11 iss- 4.0-74 
Wba~000 4 rage 188s PR Seis] «| a Ob legcee Me Orr re oad 


sEXTRN ERMA, RSKIPS, RINTES 
»PSECT S$CODES,NOWRT,2 


007¢ 0000 .ENTRY GETNUM, Save R2,R3,R4,R5,R6 : 0277 F 

: 9900000 ' EF 3 0 MOV SIGN_CONVERT, R6 : : 
G EF : MOVAB KHAR’ R5 : ; 

4 10 AC D 10 MOVL § NUMBER_LENGTH, R4 + 0321 ; 
0 BC D4 00014 CLRL § @NUMBER_VALUE ; 03 3 F 

¢ «BC (4 O17 CLRL § @NUMBERTSIGN : 03 ; 

64 D4 OOOIA CLRL + 0328 3 

52 04 AC D0 o HOVE INPUT_STRING, R2 + 0332 : 
000000006 EF gi FB 0 CALLS . RSKIPS a : 
28 g D1 00028 CMPL = KHAR, #43 : ; 
4 12 000 BNEQ ‘1 : ; 

Q D6 000 INCL RO : ; 

05 11 000 BRB 2$ : ; 

2D 65 D1 00034 1$: CMPL  KHAR, #45 : : 
¢8 le 0037 BNEG 6$ : F 

05 0 £9 00039 2s: BLBC = RO, -3$ + 0339 ; 
50 01 DO 0003C¢ MOVL #1, RO : ; 
03 11 0003F BRB 4$ : : 

50 gi CE 00041 3$: MNEGL #1, RO : : 
oc «aC 0 DO 00044 4$: MOVL R9 @NUMBER_SIGN : 3 
0c A2 D5 00048 TSTL  12¢R2) + 0340 ; 

OA 14 00048 BGTR : ; 

65 006 BF 9A 90040 MOVZBL #RINTES KHAR : : 
OC A2 1 cE 0051 MNEGL #1, 12(R2) : : 
Al 0055 BRB 6$ : : 

65 04 8B 9A 00057 5$: MOVZBL @4(R2), KHAR s 3 
04 =A 6 0058 INCL 4(R2) : : 

OC A2 D7 0005E DECL  12(R2) : ; 

OC BC 05 00061 68: TSTL | @NUMBER_SIGN : 0343 ; 

05 19 00064 BLSS 7$ ; ; 

50 1 00 0066 MOVL #1, RO ; 3 
3 11 0006 BRB $ : ; 

50 1 ce 0068 7$: MNEGL #1, RO : : 
66 0 D O06 8$: OVL RO, SIGN_CONVERT : ; 
30 D4 00 CLRL + 0344 ; 

30 D1 0007 CMPL = KHAR, #48 ; ; 
if 07 BNEG 9$ : : 

p 07 INCL RO : : 

53 oc A i 7A 9$: MOVAB 12(R2), R3 > 0349 ; 
0 6 p 07 10$ CMPL  KHAR, # : 0348 : 
1 : BNEG 12$ : : 

3 p TSTL  (R3) > 0349 : 

9 14 GTR 11 ; ; 

65 00G 8F 9A MOVZBL #RINTES KHAR : : 
63 1 cr MNEGL #1, (R35 ; : 
é BRB 10$ : : 

65 04 B2 9A 11$ MOVZBL @4(R2), KHAR ; : 
ca Dg 94 INCL 4(R2) : : 

Mt tie Bast HED : : 

6 19 00098 128 BLSS 183 > 0354 ; 


ort Bh fag e ¢ 
RUNOFF .SRCJGETNUM.BLI; 
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ZIF DSRPLUS XTHEN 

GLOBAL ROUTINE getsub (input string, number_value, number_length, expand_string) = 
' 

i 
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1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
10 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


+H 
FUNCTIONAL DESCRIPTION: 


Khar is assumed to be the substitute flag and must be to 

to get processed through this routine. GETSUB will call NEWSUB 
te pick up fhe Sentity and if expand_string is true, then GETLET 
. : 


FORMAL PARAMETERS: 
input_string - The 4 is containing the value qought. 
number _value - Contains the binary equivalent of the original input. 
number_length = Contains the number of digits that were processed. 
If number_length is zero on return, no number was 
found. In such a case, all other parameters will 
also have a zero value. 
expand_string <- If true, then any string ‘number’ will be expanded 
and converted into a ‘number’. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns TRUE if a valid number was found, else FALSE. 
SIDE EFFECTS: 
Issues an error message in the case of an invalid number. 


ngth, 
token. desc : SSTR_DESCRIPTOR (CLASS = DYNAMIC), 


status : $gtoken_status, ! Status returned by GTOKEN. 

entity_value; ! Value returned by GTOKEN. 
BIND 

ira = .input_string : REF FIXED_STRING, 

nv = .number_value 

nl = -number~ Length; 


Check to make sure khar is the substitute flag. 
if .khar NEQ .flgt Csub_flag, flag character] AND 
mane { : ant Btedi 


-flgt Csub_flag, flag_ena 
RETURN false; 


GE TNUM Get a number and convert it to binary. 1b-se Sep-1984 9: AX-11 Bliss-32 V4.0-74 Page 11 
Cian 00 4 ety 7 9: 4 4] RUNOFF. BR RCIG GE TNUM.BLI; . 
: 368 U 0494 1 
: 393 S B26k 2 | eeevinn whet ther fe the ete Hi hand the 4 ing off 
3 ' Knowin a ar is the subs flag, we can hand the input string o 
s 571 U 199 1! to NEWCUB. . : . 
3 ie: U re 1! 
; 3S? U 0499 1 BEGIN 
: 374 u 0500 1 LOCAL 
. srs U 2 7. a hold_temp_mra_length, 
; 376 U ¢ 1 hold_khar;, 
s 377 u 05 1 hold_ira_next, 
; 378 u 0504 1 hold_ira_length; 
; 379 u 0505 1 
; 380 U 0506 1 Length = 0; 
; 3e) U F444 1 value = 0; 
: 3 u 0508 1 
; 38 u 0509 1 ! 
3 84 u 0510 1 ' Remember location of current tsf and ira. 
s 389 U bat 4 1 i 
3; 4386 U 21¢ 1 hold_ khar = .khar; 
3s 3ar U 051 1 hold_ira _next : .fs anext (ira); 
; 388 U Bate 1 hold. ira_ ~tength .fs_length(ira); 
; 389 u 0515 1 hold. “tsf = .tsf; 
; 390 U B28 1 
; «391 u 0517 1 set up new (temporary) tsf. 
; 3 U Beis 1 i 
; 39 u 0519 1 tsf = temp_tsf 
3 394 u 0520 1 
: 95 u 0521 1 INCR_I FROM 0 TO (tsf_size - 1) DO 
; 396 u 05 ; 1 tsf C.1J = 0; 
: 397 U B2 1 
; 398 u 0524 1 ! 
; 399 u 0525 1 ! Remember location of current mra. 
; 400 U 0526 1 ! 
: 401 U 0527 1 hold_mra = .mra; 
; 40 U 0528 1 ! 
3 et up new (temporary) mra. 
40 u 0529 1 ! Set (t ) 
; 404 u 0530 1 i 
; 405 U Bae, 1 ts _maxsize (temp_mra) = temp_size_mra; 
: 406 U 05 § 1 fs_init (temp_mra); 
3; 407 u 05 1 mra = temp_mra; 
; 408 uU 0534 1 ! 
; 409 u 0535 1 i Set flag to indicate that we are within a footnote. 
3 239 ¥ 0337 : The tues s used by FCIMRA to avoid writing into the new mra. 
3 tig U 2 8 1 if -fnct_collecting 
; «641 u 0539 1 THEN 
3 $14 u 0540 1 entity_in_footnote = true; 
3; 615 U 0541 1 ' 
: 416 U 246 1 i Set flag to indicate that we are processing an entity. 
3; «417 U 05435 1 ! the fas s used he EWSUB to avoid cap ing EN NDCHR. 
: $18 : re ! It also tells GETNUM that NEWSUB has already called kcns. 
; 620 U 248 1 process ing_ entity = true; 
: 421 U 0547 1 
3; 4 § U $78 1 i Get the eyring (expected to be digits) referred to by the entity. 
3 : ? 3 4 ' Place it in the current mra. 


vO4~000 


425 


Foe oF oF oF oF oF ot ot of ot at ot 
NOUS WN —ODOOnNO 


WAWNWw 


438 


WN —OOONAOULSWN—OVOOwo 


Fl el al tl ee he ek ek ek ak et et eh ek et 
PAPAS & 


II 


OOQOOCOSOCOOCOSSOSSSGOGOSOSOOCOSOOOOCOCOCOOOCOOCOOCOCOOCOOCOO 


DOO 0O0O0 OO O09O8 090960 09 69 09 09 09 SII NIN NINN SNIP AOA AA AAA OUIUIUIUIVT 
CONAUE WN © OONAUE WN 9 OD NAUE WN @OOODNOUE WN OVOONOULS wr 


Raw SS 


G&Cceceecceececececececcecececcececececececececececececcececce 
ahubabababababababababababababababababebababababababaicubabababababuababsbabababubababsiababababababuabai ciabaiadial 


SOAS 


4 3 
Get a number and convert it to binary. 16-Sep-1984 00:39:41 AX-11 Bliss-32 V4.0-7 
, 1278601382 90:38; 4 RUNOFF ..SRCJGETNUM.BLI 


newsub (); 
processing_entity = false; 


Flush out last character into the mra. 

endwrd (false, false, false); 

Reset one flag; job is done. 

entity_in_ footnote = false; 

} Reset next character pointer to the start of the mra. 


hold_temp_mra_length = .fs Length (mra); 
fs_next (mra)"= .fs_start Tmra); 


i Convert substitute string in the temp. mra to a value 
and get statistics about it. 


status = gtoken (.mra, 0, token_desc, entity_value, 0); 
if .status Cot$v_numeric] 
THE 

BEGIN 


i User supplied a valid numeric number. 
Apply sign to returned value. 


nv = (.entity_value * .sign_convert); 
' Get length of returned value. 

nl = .token_desc Cstr$h_length]; 

i Restore original mra. 

mra = e-hold_mra; 

i Restore original tsf. 


' 

tsf = .hold_tsf; 

RETURN true; 
END; 
i if we picked up sonething but it wasn’t a number then check to see 
if we are allowed to go further and use the string as a ‘number’. 
if yrstatus Cgt$v_token] AND NOT .status Cgt$v_numeric) 

BEGIN 

genpend string AND (.token_desc Cstr$h_length] GIR 0) 

BEGIN 


Take a picture of the mra and ira for restoring when finished. 


hold_ira_next = .fs_next(ira); 


——_—_-—_——_ 


} 
N 3 | 
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Bus 000 - , 1ergee 188s F8i38:s] | HAMA OSAESGE Mums or 4 o a) 
} 


>; 48 U 0608 1 hold_ira_length = .fs_length(ira); 

i 4 U 0609 1 fs_néxt Tmra = .fs_start (mra); 

: 4 u 610 fsclength (mra) = :hold_temp_mra_length; 

; 48 U ol¢ 1 ' Reset next character pointer 

; 48 U 0613 1 ' 
; 488 U 0614 1 fs_rchar (mra, khar); | 
: 489 u 0615 1 : 
; 490 U 018 1 ' Go convert the string into a ‘number’ 

; 491 U 0617 1 : 

; 49 U 0618 1 getlet(.mra, value, length); 

; 49 U 0619 1 : 
3 494 U 0620 1 nv = .value; 

: 495 U 0621 1 nl = c.length; | 
; 496 U 06 ¢ 1 ' 

; 497 U 06 1 ! Restore original mra and ira. 

: 498 U 0624 1 : 

; 499 U 0625 1 mra = .hold_mra; 

; 500 U 06 § 1 fs_next(ira) = .hold_ira_next; 

3 30) U 06 1 fs_length(ira) = .hold_ifa_length; 

; 206 U 0628 1 : 

; 20 U ge 9 1 ' Restore original tsf. 

; 504 U 0630 1 ‘ 

3 905 .U 0631 1 tsf = .hold_tsf; 

; 506 U b636 1 RETURN true; 

3 S07 U st 1 N 

; 508 U 0634 1 ELSE 

; 509 U 0635 1 BEGIN 

; 510 U 0636 1 ' 

: 3v U 0637 1 ! Restore original mra. 

; aig U st} 1 : 

Ses U 0639 1 mra = .hold_mra; 

; 514 U 0640 1 

3; «6515 U 0641 1 ' Restore original ts’ and put the IRA back into shape. 

; 516 U sak: 1 ! 

nw U 0645 1 tsf = .hold_tsf; 

; 518 U 0644 1 ! 

3 319 U 0645 1 khar = .hold_khar; 

; 520 U 0646 1 fs_next(ira) = .hold_ira_next; 

3 el U 0647 1 fs-length(ira) = .hold_ifa_length; 

; 256 U p668 1 RETURN false; 

3 fe U 0649 1 END; 

; 524 U 0650 1 END; 

: 2$? U 393) 1 END; 

3 6 U 06 $ 1 RETURN true; !' to make BLISS happy. 

$ Ser U 06535 1 END; ! End of GETSUB. 

; 528 U 0654 1 

; 529 0655 1 &FI 


4 
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Gh4~000 . 12-88-1382 90:34) RUNOFF ..SRCJGETNUM.BLI; 


GLOBAL ROUTINE getlet (input_string, number_value, number_length) : NOVALUE = 
44 


| FUNCTIONAL DESCRIPTION: 


GeTLer is called from GETSUB or NM in order to resolve a string that 
will be turned into a ‘number’. 


WMV) 


ODONAUES WN OVOONOUL wr 


FORMAL PARAMETERS: 


input_string - The 2 age containing the value sought. 
h alent of the original input. 


WINN 
_ 
OOoooooQoooooooo°oo 


PRARAARAAAAAAEA AAA AA AOA AO 
SNS SSIS AAAAAAAAOOumtn 


CONAVEWN "OOS NAULS WOOO 


ii §); 


i Now try to get an appendix name specified as a string of letters. 
gname_result = gname (ira, fs01); 


w 
i 


H 1 

H 1 

H 1 

: 1 

$ 1: 

> 1! 

; 1! 

: 1! 

3 1! 

; 2 1! 

; 54 1! 

3 2 1! number _value - Contains the binary Squiy 

; 54 1} number_length = Contains the number of digits that were processed. 
3; «54 7} If number_length is zero on return, no number was 
; «54 = found. In such a case, all other parameters will 
3 2 8 : } also have a zero value. 

H i 8 ! IMPLICIT INPUTS: None 

; , ! 

; 399 0 1 ! IMPLICIT OUTPUTS: None 

3 931 0 1! 

4 o26 0 1 ! ROUTINE VALUE: 

a 0 1 ! COMPLETION CODES: 

> 554 0679 1! : 

3 399 0680 1! Returns TRUE if a valid number was found, else FALSE. 

; 338 0681 1! 

3 oz 0682 1 ! SIDE EFFECTS: 

3 358 0683 1! 

3 SOP 0684 1! none 

; 560 0685 1 !-- 

: 561 0686 1 

3 206 0687 BEGIN 

3 3 0688 BIND. 

; 564 0689 ira = .input string : REF FIXED_STRING, 

; 565 0690 nv = .mumber_value 

: 566 594 2 nl = jnumber~ length; 

: 567 69 

; 568 069 LOCAL 

; 289 S22 gname_result; 

: Sry 0696 ! Initialize the temporary fixed string where the result is returned. 
3 2r¢ boop fs_init (fs01); 

3; 574 344 ! The routine GNAME uses khar in doing its processing. Therefore we must 
3 af? ie } update khar so everthing works correctly. 

3 378 70¢ it $XPO_PUT ( I0B = .rnoiob 

; 578 7 1! eSTRING = $STR_CONCAT( ' tee#* Value of khar: ' 

: 579 704 4H SSTR_ASCII (.khar) 

; 580 705 2 ii $); 

; 581 i $XPO_PUT ( 10B = .rnoiob Witgor 

3 256 ; »STRING = $STR_CONCAT( ° Length oh. Bae 

§ ; 4 SSTR_ASCII (.fs_length(ira)) 
ee 


@ 
~N 


¥04~000 


SISOS 


oc 
PAP wr Oooo 


VIVIVIVIVIW 


wooonovowo 


; Routine Size: 


SOWNS 
SCODES 


1Soseo-t9ge 09:59:41 


Get a number and convert it to binary. AX-11 BLi regeze V4.0-74 
RUNOFF ..SRCJGETNUM.BLI; 
713 2 
714 ! If the user specified a string of letters convert to binary representation. 
715 IF _ .gname_ result NEQ gname_no_name 
£18 THEN 
71 
On8 nl = .fs_length (fs01) 
18 nv = ¢ convlb (.fs Start (fs01), -fs_length (fs01)); 
$754 1 END; "1! End of GETLET. 
0004 00000 ENTRY GETLET, Save R2 
52 000000006 EF 9E 00002 MOVAB FSOT, R2 
OC A2 D4 00009 CLRL FS 12 
6g w. 6 4 000C MOVAB £FS01+16, FSO1 
046 A 62 DO 00010 MOVL  FSO1, FS0144 
52 DD 4 bp PUSHL R2 
04 AC ODD B88 PUSHL INPUT_STRING 
00000000G_ EF 9¢ FB 0001 CALLS #2 AME 
02 50 01 Bpose CMPL GNAME_RESULT, #2 
12 (tS B08s BEQL 1$ 
oc «BC OC A2 00 00025 MOVL FS et @NUMBER_LENGTH 
OC A2 DD 0002A PUSHL FSO1 
62 DD 0002D PUSHL FS 
000000006 EF 9s FB 0002F CALLS #2 VLB 
08 BC 50 DO 00036 MOVL RO, @NUMBER_VALUE 
04 O003A 1$ RET 
59 bytes, Routine Base: S$CODE$S + 0123 
ore 
0723 1 END 
0724 0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL pinethe'o bE id b ohh 
350 NOVEC, *NOWRT, RD , EXE,NOSHR, LCL, REL CON,NOPIC,ALIGN(2) 
Library Statistics 
coccceee Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 


Bete Se Ge Se Se Se Se Be Ge Be Se Be Fe Be Ge 


0656 
0697 


0712 
0715 


0718 
0719 


0721 


dD 4 
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W54~000 : at ne 7 99: oe 4] YRUNOF Fe SRC JGETNUM. bli: . (6) 
; -8255$DUA SYSLIBIXPORT.L32;1 9 74 1 25 :00. 
; ~BSBSSRUASE: ERUNGHP eRc HSRC TB 1 32:1 1328 16 f 86 0:00:3 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETNUM/OBJ=OBJ$:GETNUM MSRC$:GETNUM/UPDATE=(ENH$: GE TNUM) 

Size: 350 code + 4 data bytes 

Run Time: 0:10.0 


00: 
Elapsed Time: 00:28.4 
Lines/CPU Min: 4348 
Lexemes/CPU-Min: 17195 
pe Used: 114 pages 
Compilation Complete 


P ENT CORPORATION 
ND PROPRIETARY 


